home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSSTRK.for < prev    next >
Text File  |  1991-04-13  |  736b  |  38 lines
  1.     SUBROUTINE GSSTRK(IICHAR)
  2.         IMPLICIT NONE
  3.         INTEGER IICHAR,INDX,IDONE
  4.         REAL*4 DX,DY,GSCWID
  5. C
  6. C    THIS SUBROUTINE STROKES OUT A CHARACTER.
  7. C
  8.     LOGICAL*1 LMOVE
  9.     INCLUDE DIGLIB$KOM:GCCIDX.PRM
  10. C
  11. C    SPACE FILL ALL NON-PRINTING
  12. C
  13.     IF (IICHAR .LE. 32 .OR. IICHAR .GE. 128) GO TO 200
  14. C
  15. C    STROKE THIS CHARACTER
  16. C
  17.     INDX = INDEXC(IICHAR-32)
  18.     IDONE = INDEXC(IICHAR-31)
  19. C
  20. C    GET THE SCALED AND ROTATED NEXT NODE ON THE CHARACTER
  21. C
  22. 100    CALL GSCGET(INDX,DX,DY,LMOVE)
  23.     IF (LMOVE) GO TO 140
  24.     CALL GSDRAW(DX,DY)
  25.     GO TO 160
  26. 140    CALL GSMOVE(DX,DY)
  27. C
  28. C    SEE IF ALL DONE
  29. C
  30. 160    IF (INDX .LT. IDONE) GO TO 100
  31. C
  32. C    ALL DONE WITH THE CHARACTER, MOVE TO NEXT CHARACTER POSITION
  33. C
  34. 200    CALL GSCCLC(GSCWID(),0.0,DX,DY)
  35.     CALL GSMOVE(DX,DY)
  36.     RETURN
  37.     END
  38.